home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / Spiele / GEMSPIEL / THRUST / SOURCE / TIMER.MOD < prev   
Encoding:
Text File  |  1996-01-30  |  345 b   |  25 lines
  1. MODULE Timer;
  2.  
  3. IMPORT XBIOS;
  4.  
  5. VAR Time : POINTER TO RECORD Hz200 : LONGINT END;
  6.     GlobTime : LONGINT;
  7.  
  8. (*$-K Kein Stackcheck *)
  9. PROCEDURE Get2();
  10. BEGIN
  11.   GlobTime := Time.Hz200;
  12. END Get2;
  13. (*$=K *)
  14.  
  15. PROCEDURE Get* () : LONGINT;
  16. BEGIN
  17.   XBIOS.Supexec(Get2);
  18.   RETURN GlobTime;
  19. END Get;
  20.  
  21. BEGIN
  22.   Time := 4BAH;
  23. END Timer.
  24.  
  25.